Thema Datum  Von Nutzer Rating
Antwort
Rot VBA
 04.03.2020 02:04:48 Student32
NotSolved
Blau VBA
 04.03.2020 02:05:28 Gast16984
NotSolved
Rot VBA
 04.03.2020 02:51:11 Student32
NotSolved
Blau VBA
 04.03.2020 02:56:59 Gast54445
NotSolved
Rot VBA
 04.03.2020 03:25:22 Gast42957
NotSolved
Blau VBA
 04.03.2020 06:30:04 Gast93741
NotSolved
Rot VBA
 04.03.2020 06:34:30 Gast85618
NotSolved
04.03.2020 06:50:14 Mase
NotSolved
Rot ><(((*>
 05.03.2020 00:31:16 Gast29014
NotSolved

Ansicht des Beitrags:
Von:
Gast29014		 Datum:
05.03.2020 00:31:16		 Views:
472		 Rating:
     
Antwort:
  Ja
Thema:
><(((*>

'Schwerer Anfang ist zehnmal heilsamer als leichter Anfang :)

'Danke dir @Marco 


' Mit deinem link konnte ich mich schon beschäftigen!

' es hat geklapp obwohl alle Tabellen davor geöffnet sein sollen!
' aber kann schon damit was anfangen 

 

Sub Test()
Dim i As Integer
Dim k As Integer
Dim c As String
Dim b As String
Dim a As String

For i = 2 To 15
For k = 2 To 15

a = Workbooks("Mappe2").Worksheets("tab11").Cells(i, 1).Value2
b = Workbooks("Mappe").Worksheets("sheet2").Cells(k, 2).Value2
If VBA.Left(Workbooks("Mappe2").Worksheets("tab11").Cells(i, 1), 2) = "1." And Workbooks("Mappe2").Worksheets("tab11").Cells(i, 2) = "Nichts" And a = b Then
 Workbooks("Mappe2").Worksheets("tab11").Cells(i, 1).Value2 = Workbooks("Mappe").Worksheets("sheet2").Cells(k, 3).Value2
End If
  Next k
Next i
End Sub



 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA
 04.03.2020 02:04:48 Student32
NotSolved
Blau VBA
 04.03.2020 02:05:28 Gast16984
NotSolved
Rot VBA
 04.03.2020 02:51:11 Student32
NotSolved
Blau VBA
 04.03.2020 02:56:59 Gast54445
NotSolved
Rot VBA
 04.03.2020 03:25:22 Gast42957
NotSolved
Blau VBA
 04.03.2020 06:30:04 Gast93741
NotSolved
Rot VBA
 04.03.2020 06:34:30 Gast85618
NotSolved
04.03.2020 06:50:14 Mase
NotSolved
Rot ><(((*>
 05.03.2020 00:31:16 Gast29014
NotSolved